Interactive plot - not rendered for now
Static plot
fig_data = fig_data %>%
separate(dv, c("task_group", "var"), sep="\\.",remove=FALSE,extra="merge") %>%
mutate(task_group = factor(task_group, levels = task_group[order(task)]),
raw1_fit0 = grepl('raw', variable_type),
type = as.character(type)) %>%
arrange(task_group, -raw1_fit0)